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2 
value in base 8 18-Sep-19 4 96:41:02 AX-11 tt v4.0 
14-Sep-1984 12:52:05 PASRTL.SRCJPASWRIOC 
MODULE PASSWRITE_OCT ( EA ‘Write a value in base 8' 
IDENT = '1=002' ! File: PASWRIOCT.B32 Edit: $BL1002 


d= 
BEGIN 


BESS SSE LSE S ELIT TTT TT TTT TTT TTT Te Tree tice tre rier i irc i citi iii ii iitiiiiiiiie 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 


iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE 


I USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF TH TH 


* 
* 

* 

* 

* 

E * 
NSE AND WI — « 
E OR OTHER * 
AVAILABLE TO ANY * 
i HER FTWARE IS HEREBY * 
ie TRANSFERRED. « 
* 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJ cr TO CHANGE WITHOUT NO . 
* 

* 

® 

® 

® 

* 

x 

% 


E TIC 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 
!® CORPORATION. 


!® DIGITAL ASSUMES NO RESPONS 
tt SOFTWARE ON EQUIPMENT WHIC 


it 
Vee RRR RRA REE E ER E RE RAE EEE EEAEAAEEERAAEAERARRAEAAARERRERRAEREKEEE 
J 


s} ITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
H IS NOT SUPPLIED BY DIGITAL. 


lo 
FACILITY: Pascal Language Support 


ABSTRACT: 


This module contains procedures which write a value in 
base 8 to a textfile or string. 


ENVIRONMENT: User mode - AST reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
MODIFIED BY: 
1-00 - er iginet sol, 1-April-1981 e 
- - Make total-width a longword. SBL 30-June-1982 
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PASSWRITE_OCT Write a yalue in base 8 16-Sep-1984 02:21:09 AX-11 Bliss-32 V4.0-7 Pp 
1erSep=1986 93:82:05 age 


2 Declarations - PASRTL.SRCJPASWRIOCT. 5 2:1 
5 $8 o¢ ! XSBTTL ‘Declarations’ : 
H i 50 1 ! PROLOGUE DEFINITIONS: F} 
: 8g oos2 
3 2¢ 0038 i REQUIRE ‘RTLIN:PASPROLOG'; ! Externals, linkages, PSECTs, structures : 
3 28 118 1! 3 
3 119 1°! TABLE OF CONTENTS: 5 
es) ae 120 1! 3 
2 0121 1 3 
Ps 60 81 ¢ 1 FORWARD ROVT INE : 
a) 1 1 PASSWRITE OCT: NOVALUE ! Write to textfile ; 
; 6¢ oi s PASSWRITEV_OCT: NOVALUE; i Write to string : 
; 66 0126 1 ! MACROS: 3 
s 65 0127 1! 3 
; & 0128 1! NONE 3 
i oe 3144 1! 3 
; 68 0130 1 ! EQUATED SYMBOLS: - 
; wy 0131 1! r 
s 0 8136 a NONE 3 
3 71 01 1! 3 
; 72 0134 1 ! FIELDS: $ 
a oe 0135 1! 3 
3 74 0136 1! NONE : 
Sane 0137 1! 3 
-. 0138 1 ! OWN STORAGE: 3 
Bee 0139 1! 3 
3 78 0140 1! NONE : 
; 79 0141 1! 3 
; bi46 1 3 
ci ae 0143 1 !! If this ie for a V2 system, redefine OTS$CVT_L_TO as PASSCVT_L_TO. 3 
3 82 tL 0144 1 ZIF XVAR IAN 3 
s #83 U 0145 1 XTHEN 3 
: 84 U 0146 1 UNDECLARE PF 
s 895 U 0147 1 OTS$CVT_L_TO; 3 
; 8 U 0148 1 EXTERNAL ROOTING 3 
: 87 U 0149 1 PASSCVT_L_TO; ; 
; 88 U 0150 1 BIND ROUTINE 3 
> «89 u 0151 1 OTS$CVT_L_TO = PASSCVT_L_TO; : 
; 90 0152 1 &FI : 
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2 
value in base 8 1b-se =1984 02:21:09 AX-11 Bliss-32 V4.0-74 
E_OCT = Write a value in octal 1e-8ep-19 4 93:83:08 PASRTL.SRC1 
XSBITL "PASSWRITE 6A - Write a value in octal’ 
GLOBAL ROUTINE PASSWRITE OC” ( 


PFV: REF SPASSPFU_FILE_VARIABLE, File variable 
NBITS 


VALUE. Address of value 
TOTAL_WIDTH: SIGNED, Total field width 
Error unwind address 


R 
MIN DIGITS: SIGNED 
NOVACUE = 


): 
le4 


FUNCTIONAL DESCRIPTION: 
i This procedure writes a base 8 representation of a value to the 


SIGNALLED ERRORS: 
NEGWIDDIG = negative field width or digits specification not allowed 


| specified textfile. 

CALLING SEQUENCE: 

: CALL PASSWRITE_OCT (PFV.mr.r, NBITS.rl.v, VALUE.rz.r, TOTAL_WIDTH.rl.v 
C, CERROR.j.r] C, MIN_DIGITS.ri.vJJ) 

FORMAL PARAMETERS: 

! PFV - The Pascal File Variable (PFV) passed by reference. 
: The structure of the PFV is defined in BASPFV.REG. 
NBITS - The size of VALUE in bits. 

VALUE - The address of the value to write. 

TOTAL_WIDTH - Total field width. 

ERROR - Optional. Address to unwind to if an error occurs. 
: MIN_DIGITS - Optional. The minimum number of digits to appear 
digits needed to reprusent every bit of the velus. 
i IMPLICIT INPUTS: 

NONE 

IMPLICIT OUTPUTS: 

: NONE 

ROUTINE VALUE: 

} NONE 

SIDE EFFECTS: 

: If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
! 


PASWRIOCT.B52;1 
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PASSWRITE_OCT Write a value in base 8 16-Sep-1984 02:21: AX-11 Bliss-32 V4.0-74 Page 4 Pi 
ti a PASSWRITE_OCT = Write a value in octal 12286871382 95:83:98 PASRTL.SRCIPASWRIOCT .B 231 " (3) | Wy 
; 149 10 1! LINTOCLON = Line too Long | ; 
s 150 + ie £ : 
: 151 6 1 le-- . 
a ¥ ¢ 1 1 : 
o>. ie 14 BEGIN ; 
s 136 15 . 
s 155 1 LOCAL : 
; 138 021 FCB: REF SPASSFCB_CONTROL_BLOCK, ! File control block : 
3; 0 18 ACTUAL_DIGITS, ! Number of digits actually used ; 
3 138 021 ACTUAL_NBITS, ! Value size ag tual ly used : 
3; 159 0220 DESCR: BLOCK (8, BYTE), ! String descriptor ; 
; 160 0 1 PFV_ADDR: VOLATILE, i Enable argument : 
3 161 ; UNWIND_ACT: VOLATILE, ! Enable argument ; 
; 166 2 ? ERROR_ADDR: VOLATILE; ! Enable argument : 
: 164 0995 LITERAL | ; 
: 165 0226 M_SIZE_IN_BITS = %x'04'; ! Flags argument for ; 
: 166 0227 ! convert routine ; 
3: 167 osSs BUILTIN : 
3; 6168 0229 ACTUALCOUNT; : 
; 6169 0230 § : 
: 170 0931 ENABLE | : 
3 Ha Os3¢ 2 PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
3 | 
3 178 0234 + 
3 174 BSe2 ! Get ERROR parameter, if present. 
: 175 236 le 
: 176 0237 2 
; 177 0238 § IF ACTUALCOUNT () GEQU 5 
: 178 0572 THEN 
: +4 BSeo § ERROR_ADDR = .ERROR; ! Set unwind address 
s To 0242 2 PFV_ADDR = PFV CPFVSR_PFVI; ! Set PFV address 
3 18 0243 2 
3; bees 2 '¢ 
; 184 0245 2 ! Validate PFV and get PFV. 
3: «185 0246 2 l- 
3; «(186 0247 2 
s 187 0248 2 PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); | 
; 188 0249 § 
3; «6189 0250 + : 
3; 190 0251 § ! Set unwind action to unlock file. 
3 13) OS3¢ le 
: 198 0584 $ — UNWIND_ACT = PASSK_UNWIND UNLOCK: 
3 6194 8522 § 
: 195 256 1+ | 
: 196 0257 !' Do common initialization. 
3; 197 0258 le 
: 198 8622 | 
3; 199 0260 PASSSINIT_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCB); FCB); 
: 200 0261 § 
: 201 8 66 '¢ ery , 
3 O8 6 ' Set initial values for conversion. 
; 2 64 le 
; 204 65 
; 205 66 ACTUAL_NBITS = .NBITS; 
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2 
o? 


e in base 8 
T = Write a value in octal 


ACTUAL_DIGITS = (.ACTUAL_NBITS+2)/3; 


'¢ 
Create result string descriptor with actual width. 


oo 


RECORD_CURI; 


IN 
UAL DIGITS = .MIN — 
ACTUAL_DIGITS LSS 


-SPASSIO_ERROR (PAS$_NEGWIDDIG,0); 
AL_WIDTH LSS 0 


E 
SPAS$IO_ERROR (PASS$_NEGWIDDIG,0); 
DESCR CDSC$O_LENGTH] = TTOTAL_WIDTH; 


i will TOTAL_WIDTH truncate the value? 


| 

| 

| 

IF. 
if jlOTAL_WIDTH LSSU (.ACTUAL_NBITS+#2)/3 
| 

| 

| 


WN — SO OONOUES WN “OVO ONOUSWN OOM 


WANE PIPINPI PINON NONUDD 2 2 OO OS OS 


BEGIN 
Change value size and bit offset to cause a truncated result. 


: 

: 

3 ACTUAL_NBITS = .TOTAL_WIDTH#3; 
END; 


IF .ACTUAL_DIGITS GTR .TOTAL_WIDTH 
ACTUAL_DIGITS = .TOTAL_WIDTH; 


1+ 
See if field will fit in record. 


EXTRA; ' Extra characters pest end of Ll 
EXTRA = (.FCB CFCBSA_RECORD_CUR] + .DESCR CDSCS$W_LENGTH]) - 
IF .EXTRA GTR O 


HEN 
END SPASSIO_ERROR (PAS$_LINTOOLON,1,.EXTRA); 


ine 
-FCB CFCBSA_RECORD_END); 


te 
: Do the conversion. It can't fail. 


DOA AAGMNI es BEEBE EEE PWM 
SSRIS RFUNLSSRNGOARUN =OSONOUE 


OTSSCVT_L_TO (.VALUE, DESCR, .ACTUAL_DIGITS, .ACTUAL_NBITS, 
M_SIZE_IN_BITS); 
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Write a value in base 8 18. Sep-1984 9 AX-11 Bliss-32 V4.0 a Pi 
-002 PASSWRITE_OCT = Write a value in octal 14- ~8ep-1984 95% g) if PASRTL.SRC PASWRIOCT. +} 2;1 A (33 1: 
; $03 ue FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_CUR] + .DESCR COSCS$W_LENGTH); 
; 368 0526 1+ | 
; 66 0327 i Call WRITE epilogue routine to move the Last ch t tt th 
s 2or 0328 _user' 5 bulter and to unlock the {lie ve riable. eslnessans se spe he Mc 
; 268 §368 ' 
; 269 0330 
; $f O38 § PASSSEND_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCBI); 
: ere 0335 2 RETURN; 
, a 0334 ¢ 
; 274 0335 i END; ! End of routine PASSWRITE_OCT 
TITLE roeauas eee! Write a value in base 8 
-IDENT \1-002\ 
~-EXTRN PASSWRITE_OCT, PASSWRITEV_OCT 
EXTR AS$$10_HANDLER 
-EXTRN PASSSVALIDATE PFV 
~EXTRN PASSSINI WRITE 
~EXTRN SSS 10NAL PAS$K_NEGWIDDIG 
»EXTRN PASSR LINT 


L 
-EXTRN OTSSCVT_L_TO, PASSSEND_WRITE 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 
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O1FC 00000 .ENTRY PASS$WRITE ocr, gave R2,R3,R4,R5,R6,R7,RB : 0154 
58 000000006 00 9€ 00002 MOVAB PASSSSIGNAL, : 
5E 10 C2 00009 SUBL2 #1 : 
7E 04 0000C CLRL ERROR ADDR : 0214 
04 AE 7C OOOOE CLRQ UNWIND ACT : 
6D OOA7 CF DE 00011 MOVAL 8$, (FP) : 
05 6C 91 00016 CMPB (AP), #5 : 0238 
04 1F 00019 BLSSU : 
6E 14 AC DO 0001B MOVL ERROR, ERROR_ADDR : 0240 
56 04 AC DO OOO1F 1$ MOVL PFV, R : 0242 
08 AE 56 D0 90023 MOVL R6, PFV_ADDR : 
000000006 00 16 00027 JSB PASSSVALIDATE PFV > 0248 
04 AE 01 00 900¢p MOVL @# : 0254 
000000006 00 16 00031 JSB PASSSINIT QRITE : 0260 
52 08 ac dO 00037 MOVL NBITS, ACTUAL_NBITS : 0266 
54 02 Ae 9E 00038 OVAB (Re) » R4 : 0267 
54 C6 0003 DIVL2 : 
55 4 00 00 ae MOVL Re, ACTUAL gojsits : 
OF AE 010E 8F B0 0004 MOVW roe > 0274 | 
10 AE EC A? DO 0048 MOVL aCe) Ser icnes : 0275 
06 6c 91 090 CMPB : 0276 
06 1F 0005 BLSSU : 
55 18 AC 9 0033 MOVL Ain. DIGITS, ACTUAL_DIGITS : 0279 
06 19 00059 BLSS = 3 : 0280 | 
53 10 ac 9 0058 2$: MOVL TOTAL_WIDTH, R3 3 0284 | 
A 18 0005F BGEQ 46s 4$ : | 
e pA 9061 3$: CLRL =(SP) ; 0286 | 
re 00G 8F 9A 63 MOVZBL #PAS$K_NEGWIDDIG, -(SP) : 
6 02 FB 9006 CALLS #2, PASSS$SIGNAL : | 
04 0006A RET : | 


PASSWRITE_OCT Write a value in base 8 
1-002 PASS i 


WRITE_OCT = Write a value in octal 


OC AE BO 00068 
54 23 D1 BRE 

52 03 cB oo07s 
33 : D1 00078 

g 15 00078 

55 g0 0070 

50 oC Ag € 00080 

50 EC A? CO 00084 
50 FO A? 7 0088 

O¢ 15 0008C 
Q oD 33 

4 DD 0009 

7E 00G 8F 9A 00092 
68 03 FB 00096 
04 00099 
04 DD QO09A 

26 DD 0009C 

55 DD O009E 
18 AE 9F QOOAOD 
OC AC DD OO0AS 
000000006 00 05 FB QO0A6 
50 OC AE 3C QOOAD 

EC A? 50 CO 00081 
000000006 00 16 00085 
04 00088 

0000 0008C 

50 08 AC 00 Bppes 

50 04 AO 00 000C 
EC AQ 9F 000C6 
FO AQ 9F QO00C9 

F4 AQ 9F QOOCC 

03 DD OOOCF 

SE DD 00001 

7E 04 AC 7D 00003 
000000006 00 03 FB 00007 
04 OO0DE 


; Routine Size: 223 bytes, Routine Base: _PASS$CODE + 00u0 


275 0336 1 
276 0337 1 !<BLF/PAGE> 
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PASRTL.SR 
R3. DESCR 

R3. RG 

#3, R3, ACTUAL _NBITS 
ACTUAL_DIGITS,~R 

R3, ACTUAL_DIGITS 
DESCR, RO 


-20(FCB), RO 
-16(FCB), EXTRA 


7$ 

EXTRA 

#PASS$K_LINTOOLON, =(SP) 
#3, PASSSSIGNAL 


VALU 
#5, OTS$CVT_L_TO 
DESCR, RO 

RO, -20(FCB) 
PASSSEND_WRITE 
Save nothing 
B(AP), RO 

4(RO), RO 

ERROR ADDR 
UNWIND ACT 
FV_ADBR 


Y2zv 
UW 


4(AP), =(SP) 
#3, PAS$$IO_HANDLER 


AX-11 Oh rege V4.0-74 
CJPASWRIOCT.B52;1 
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0321 


-v 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 

NONE 
SIDE EFFECTS: 
NONE 
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PASSWRITE_OCT Write a value in base 8 16-Sep-1984 02:21:09 AX=-11 Bliss-32 V4.0-74 Page 8 Pi 
808 PASSWRITEV_OCT = Write value in base 8 to strin 1o-ge8= 1382 3:85:08 PASRTL SREIPASURIOCT B92: 1 . (4), 1: 
: 278 0 3 1 ZSBTTL ‘PASSWRITEV_OCT = Write value in base 8 to string’ 
5 79 0339 1 GLOBAL ROUTINE PASSWRITEV_OCT ( 
; 280 0340 1 MAX_LENGTH: WORD, ! Maximum Length of string | 
; «281 0341 1 STRING_LINE: REF VECTOR C, WORD], ! String to write to | 
; see tet 1 NBITS, ! Number of bits in VALUE 
; 0343 (1 VALUE: REF VECTOR C, BYTE], ' Value to write | 
: «284 tne 1 TOTAL_WIDTH: SIGNED, ' Total field width 
> 285 0345 1 RROR ' Error unwind address 
: 286 0346 1 MIN DIGITS: SIGNED i Minimum number of digits | 
; 287 0347 1 ) : NOVALUE = | 
; 288 0348 1 
; 289 0349 1 !++4 | 
> 290 0350 1 ! FUNCTIONAL DESCRIPTION: 
> 291 0351 1! 
$ $36 O26 ! This procedure writes a value in base 8 to the specified string. 
: 294 0354 1 ! CALLING SEQUENCE: 
3 295 0355 1! | 
; 296 0356 1! CALL PASSWRITEV_OCT (MAX_LENGTH.rw.v, STRING_LINE.wvt.r, 
> 297 0357 1 | NBITS.rl.v, VALUE.rz.v, TOTAL WIDTH. rl. | 
; 298 0358 1 C, CERROR.J.rJ C.MIN.DIGITS.rl.vJJ) 
: 299 0359 1! | 
; 300 0360 1 ! FORMAL PARAMETERS: 
; 301 0361 1! ; 
: 308 o308 : MAX_LENGTH - The maximum Length of STRING_LINE. 
; Soe oeee ; STRING_LINE - A varying string to which the output will be appended. | 
: 306 0366 1! NBITS - Size of VALUE in bits. | 
; 30 0367 1! 
3; ow 0368 1! VALUE - The value to write. 
; 309 0369 1! . 
ETA : } TOTAL_WIDTH - The width of the field to write. | 
; 03 § 1! ERROR - Optional. If specified, the address to unwind to 
: 9 ; in case of an error. | 
: 0375 1! MIN_DIGITS - Minimum number of digits to write. Defaults to 
; 0376 1! the minimum necessary to represent every bit of 
; 0377 1! the value. 
3 0378 1! 
2 0379 1! 
; 0380 1! 
; b3ap | | 
3 0 5 1! 
; 0384 1! 
; 0385 1! 
; 0386 1! 
3 0387 1! 
3 0388 1! 
; 0389 1! 
Z 8 01! 
; 0302 | | 
; 0 5 1! 
; 0394 1! 
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PASSWRITE_OCT Write a value in base 8 1b-se -1984 02:21:09 AX-11 Bliss-32 V4.0-74 Page 9 

1-802 PASSWRITEV_OCT = Write value in base 8 to strin 12280 8-138e 95:8): 5 PASRTL.SRC PASURIOCT BS2:1 . (4) 

; 5 0395 1 ! SIGNALLED ERRORS: 

H 6 0 38 ,% 

: 7 0397 1! See PASSWRITE_OCT 

; 8 0398 1! 

; 9 0399 1 !-- 

; 340 0400 1 

; 341 0401 BEGIN | 

; rk: Bebe 

; 34 040 LOCAL 

: 344 9404 PFV: SPASSPFV Jus VAR} AME. ' Pascal File Variable | 

> 345 0405 ARG_LIST: VECTOR (7, LONG), ' Argument List 

: a9 0406 § PFV-ADDR: VOLATILE, ' Enable argument | 

> 347 0407 UNWIND_ACT: VOLATILE, ' Enable argument 

: 348 0408 2 ERROR_ADDR: VOLATILE; ! Enable argument 

: 349 0409 2 | 

s 30 0410 2 BUILTIN 

3 Bol 0411 2 ACTUALCOUNT; ! Count of arguments | 

3 Soe Role 2 | 

: ia 041 2 ENABLE 

; $2¢ Be48 § PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler | 

; 356 0416 2 1+ 

3 So 0417 2 ! Get ERROR parameter, if present. | 

; 358 0418 2 le 

R se? 0419 2 

> 360 0420 2 IF ACTUALCOUNT () GEQU 6 

; me 0421 2 N d 

; gee 0422 2 ERROR_ADDR = .ERROR; ! Set unwind address 

; 363 0423 2 

; 364 0424 2 PFV_ADDR = PFV CPFVS$R_PFV); ! Set PFV address 

; 365 0425 2 

; 366 0426 2 '¢ | 

: 367 0427 2 ' Set up ARG_LIST. 

; 368 0428 2 l~ 

; 369 0429 2 

: 370 0430 2 ARG_LIST (0) = 4; ' Four arguments | 

; 371 0431 2 ARG_LIST [1] = PFV CPFVSR_PFV); i PFV address | 

; safe 0432 2 ARG_LIST ted = .NBITS; ! Number of bits : 
; 373 0433 2 ARG_LIST (3) = VALUE [0]; i Value to write ; 
> 374 0434 2 ARG-LIST (4) = .TOTAL WIDTH; i Field width ; 
; 375 0435 2 IF RCTUALCOUNT () GEQO 7 : 
; 376 0436 : THEN ; 
sre 0437 BEGIN : 
3 28 0438 ; ARG_LIST 94 = 6; ! Add two more arguments ; 
. 0439 ARG_LIST = 0; ! Error address : 
; 380 0440 3 ARG_LIST (6) = .MIN_DIGITS; ! Minimum digits | 

; «381 0441 2 END; 

; 382 0442 2 

H 83 0443 2 [+ 

: «384 0444 § ' Call PAS$S$DO_WRITEV to do the work, giving it the address of 

: 385 0445 ! PAS$WRITE_OCT to call. 

Sb a 8 ee 

; 388 448 PASSS$DO_WRITEV (PFV CPFVSR_PFV], .MAX_LENGTH, STRING_LINE (OJ, ARG_LIST, 

: 389 0449 PASSWRITE_OCT); | 

; 390 0450 

; 391 0451 RETURN; 


F 


- 
PASSWRITE_OCT e 8 16-Sep 9 AX-11 Bliss-32 V4.0-74 
1-008 RITEV_OCT = urite value in base 8 to strin 14-Sep 71382 96: g}: 88 PASRTL.SR RCIP PASWR Nhat 68251 


9 
338 END; ! End of routine PASSWRITEV_OCT 


-EXTRN PASSSDO_WRITEV 


007¢ 99000 .ENTRY PASSURITEV OCT, Save R2,R3,R4,R5,R6 
SE 34 C2 00 02 SUBL2  # 
E b4 000 CLRL ERROR ADDR 
AE 7C 00007 CLRQ Bg UE) ACT 
6D O04F CF bE S00 MOVAL 
06 6C OO0F CMPB 36) | 
04 1F Oo12 BLSSU 
bE 18 AC DO 00014 MOVL ERROR ERROR ADDR 
08 AE 28 «AE i 00018 1$: MOVAB PFV, PFV_ADDR 
OC AE 04 pO 00010 MOVL #4, ARG Veter 
10 AE 28 «AE 9E 00021 MOVAB PFV, ARG Lists 4 
4 OC aC 7D 990 6 MOVO NBITS, ARG _LIST+8 
“« 14 AC DO 00028 MOVL TOTAL “WIDER: ARG_LIST+16 
0 6C 91 000 0 CMPB (AP), "#7 
OC 1F 0003 BLSSU 
OC AE 06 DO 00035 OVL #6, ARG_LIST 
20 AE 04 00039 CLRL _LIST+20 
24 «AE 1¢ AC DO 0003C MOVL MIN-DIGITS, ARG_LIST+24 
55 FEDC CF 9E 00041 2$: MOVAB PASSWRITE_OCT, R5 
54 OC AE 9E 00046 MOVAB RG_LIST, R4 
56 28 AE 9E O004A MOVAB PFV; R6 
53 08 ac 00 OO04E MOVL STRING LINE, ae 
52 04 aC 3C 0005 MOVZWL MAX_LENGT 
000000006 00 16 00056 JSB PASSS$DO_ cURi Ted 
04 0005¢ RET 
0000 00050 3s: . WORD Save nothing 
50 08 AC DO 0005F MOVL  8(AP), RO 
50 04 AO DO 00063 MOVL ECROD. RO 
C8 AO 9F 00067 PUSHAB ERROR_ADDR 
CC AO 9F OOO6A PUSHAB UNWIND ACT 
DO AO 9F 0006D PUSHAB PFV_ADBR 
3 pd 00070 PUSHL #3 
E bb 9007¢ PUSHL SP 
7E 046 AC 7D 00074 MOVQ 4(AP), -(SP) 
000000006 00 03 FB 00078 CALLS #3, PASSSIO- HANDLER 
04 0007F RET 
; Routine Size: 128 bytes, Routine Base: _PASSCODE + OODF 


394 0 1 
0 1 !<BLF/PAGE> 


Pe Se Se Se Se Ge Se Se Se Se Se Se Fe Se Se Ge Be Be Se Be Se Fe Se Fe Fe Se Fe Be Fe Se Fe Fe Se Se Se Se 


3 
PASSURITE OCT Write a value in base 8 1B-se ep-1 t 98: gh: 43 AX-11 Bliss-32 V4.0-74 Page 11 
1-002 PASSWRITEV OCT = vrite value in base 8 to strin 1 =300718 4 PASRTL.SRCJPASWRIOCT.852;1 (5) 
; 397 4 § 1 END ! End of module PASS$WRITE_OCT 
; 5398 4 1 ‘ 
; 399 458 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
; PASSCODE 351 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
eee” = a re. ee Syabols -c------ Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28: : ESYSLIBISTARLET .L32;1 9776 é 0 581 00:01.0 
; _$255$DUA28: CPASRTL.OBJJPASLIB.L32;1 427 97 22 33 00:00.4 
; COMMAND QUALIFIERS 
FH SLESS/EME CREE TELD ANE TEM, OPT EME EED /HOTRACE/L 194, 150 s PARR IOC T POR OR IE PRSURIOLT MSRC$:PASWRIOCT/UPDATE=(ENHS$:PASWRIOCT 


Size: 351 ¢ 
Run Time: 00 
Elapsed Time: 00: 
Lines/CPU Miri: 3 
Lexemes/CPU-Min: 153 

f Used: 103 pages 
Compilation Complete 


0 data bytes 


v 
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